home *** CD-ROM | disk | FTP | other *** search
/ Amiga Mag HDD Backup / Amiga Mag HDD Backup.zip / Amiga Mag HDD Backup / Alexander.img.bin / Alexander.img / ***9.11 All NEWer important / 10.2 / Finch⁄Front Ending C / Listing1.txt < prev    next >
Text File  |  1983-05-04  |  17KB  |  658 lines
  1. Listing 1.  CanDoMJ Deck
  2.  
  3.  
  4.  
  5. *************
  6. * Deck "CanDoMJ"
  7. * Time 15:36:09
  8. * Date 03/05/94
  9. *************
  10.  
  11. *************
  12. * Card(s) in deck.
  13. *  Card "MJPlotPic"
  14. *  Card "MJSettings"
  15. *************
  16. * 2 Card(s), 2 were printed.
  17. *************
  18.  
  19. *************
  20. * Natural order of Cards
  21. *  Card "MJSettings"
  22. *  Card "MJPlotPic"
  23. *************
  24.  
  25. *************
  26. * There are no Global routines in this deck.
  27. *************
  28.  
  29. *************
  30. * Card "MJPlotPic"
  31.   AfterAttachment ; used to be AfterStartup
  32.     Nop ;Draw picture using CanDo code
  33.     If Arg1="GO"
  34.       SetDrawMode JAM2 
  35.       Let SR=(HR-LR)*Resolution/(WindowWidth-1)
  36.       Let SI=(HI-LI)*Resolution/(WindowHeight-1)
  37.       Let HC=WindowColors-1
  38.       Let LC=0
  39.       Nop ;Begin iterations
  40.       Let X=0
  41.       Let Y=0
  42.       Let R=LR
  43.       Let I=HI
  44.       Nop ;Plot Mandelbrot set
  45.       If PlotType="M"
  46.         While Y<WindowHeight
  47.           While X<WindowWidth
  48.             Let LoopR=0
  49.             Let LoopI=0
  50.             Let Count=0
  51.             Loop
  52.               Let Temp=LoopR*LoopR-LoopI*LoopI+R
  53.               Let LoopI=2*LoopR*LoopI+I
  54.               Let LoopR=Temp
  55.               If (LoopR*LoopR+LoopI*LoopI)>4.0
  56.                 ExitLoop
  57.               EndIf
  58.               Let Count=Count+1
  59.             Until Count>=MaxDwell
  60.             SetPen Count
  61.             If Resolution=1
  62.               DrawPixel X,Y
  63.             Else
  64.               AreaRectangle X,Y,Resolution,Resolution
  65.             EndIf
  66.             Let X=X+Resolution
  67.             Let R=R+SR
  68.           EndLoop
  69.           Let X=0
  70.           Let R=LR
  71.           Let Y=Y+Resolution
  72.           Let I=I-SI
  73.         EndLoop
  74.         Nop ;Plot Julia set
  75.       ElseIf PlotType="J"
  76.         While Y<WindowHeight
  77.           While X<WindowWidth
  78.             Let LoopR=R
  79.             Let LoopI=I
  80.             Let Count=0
  81.             Loop
  82.               If (LoopR*LoopR+LoopI*LoopI)>4.0
  83.                 ExitLoop
  84.               EndIf
  85.               Let Count=Count+1
  86.               Let Temp=LoopR*LoopR-LoopI*LoopI+JR
  87.               Let LoopI=2*LoopR*LoopI+JI
  88.               Let LoopR=Temp
  89.             Until Count>=MaxDwell
  90.             SetPen Count
  91.             If Resolution=1
  92.               DrawPixel X,Y
  93.             Else
  94.               AreaRectangle X,Y,Resolution,Resolution
  95.             EndIf
  96.             Let X=X+Resolution
  97.             Let R=R+SR
  98.           EndLoop
  99.           Let X=0
  100.           Let R=LR
  101.           Let Y=Y+Resolution
  102.           Let I=I-SI
  103.         EndLoop
  104.       EndIf
  105.       Nop ;Draw picture using C code
  106.     ElseIf Arg1="GOC"
  107.       Let Command="RCF:C_Progs/CanDoMJC/CanDoMJC "
  108.       Let Command=Command||WindowAddress||" "
  109.       Let Command=Command||MaxDwell||" "
  110.       Let Command=Command||Resolution||" "
  111.       Let Command=Command||LR||" "||HR||" "||LI||" "||HI||" "
  112.       Let Command=Command||PlotType||" "
  113.       Let Command=Command||JR||" "||JI
  114.       Dos Command
  115.     ElseIf Arg1="SEE"
  116.       LoadPicture "ram:CanDoMJPic","MJPic"
  117.       ShowPicture "MJPic"
  118.     EndIf
  119.   EndScript
  120.   Window "UserWindow"
  121.     Definition
  122.       Origin 0,0
  123.       Size 320,200
  124.       Title ""
  125.       NumberOfColors 32,69632
  126.       WindowColors 0,1,0 ; Detail, Block, Background
  127.       WindowObjects NONE 
  128.       WindowFlags ACTIVATE BORDERLESS SEPARATESCREEN TOFRONT 
  129.     EndScript
  130.     OnCloseButton
  131.       Quit
  132.     EndScript
  133.   EndObject
  134.   AreaButton "NewRange"
  135.     Definition
  136.       Origin 0,0
  137.       Size 320,200
  138.       Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  139.       Highlight NONE 
  140.       ButtonFlags NONE 
  141.     EndScript
  142.     OnClick
  143.       Let BeginX=MouseX
  144.       Let BeginY=MouseY
  145.       Let CurrW=0
  146.       Let CurrH=0
  147.       SetDrawMode COMPLEMENT 
  148.       DrawRectangle BeginX,BeginY,CurrW,CurrH
  149.     EndScript
  150.     OnDrag
  151.       If MouseX<>(CurrW+BeginX) or MouseY<>(CurrH+BeginY)
  152.         DrawRectangle BeginX,BeginY,CurrW,CurrH
  153.         Let CurrW=MouseX-BeginX
  154.         Let CurrH=MouseY-BeginY
  155.         DrawRectangle BeginX,BeginY,CurrW,CurrH
  156.       EndIf
  157.     EndScript
  158.     OnRelease
  159.       DrawRectangle BeginX,BeginY,CurrW,CurrH
  160.       Let Temp=LR+(HR-LR)*BeginX/(WindowWidth-1)
  161.       Let HR=LR+(HR-LR)*(BeginX+CurrW)/(WindowWidth-1)
  162.       Let LR=Temp
  163.       Let Temp=HI-(HI-LI)*(BeginY+CurrH)/(WindowHeight-1)
  164.       Let HI=HI-(HI-LI)*BeginY/(WindowHeight-1)
  165.       Let LI=Temp
  166.       ClipPicture "MJPic"
  167.       SavePicture "MJPic","ram:CanDoMJPic"
  168.       GotoCard "MJSettings","Reset"
  169.     EndScript
  170.   EndObject
  171.   TextMenu "SavePic"
  172.     Definition
  173.       AttachTo MENU ,"Options"
  174.       Font "topaz",8 ; FontName, PointSize
  175.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  176.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  177.       Text " Save Picture "
  178.       MenuFlags NONE 
  179.       Highlight COMPLEMENT 
  180.       ShortCutKey "S"
  181.     EndScript
  182.     Occurred
  183.       Let FNNew=AskForFileName(FN,"Save Picture")
  184.       If FNNew<>""
  185.         Let FN=FNNew
  186.         ClipPicture "MJPic"
  187.         SavePicture "MJPic",FN
  188.       EndIf
  189.     EndScript
  190.   EndObject
  191.   TextMenu "SetColors"
  192.     Definition
  193.       AttachTo MENU ,"Options"
  194.       Font "topaz",8 ; FontName, PointSize
  195.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  196.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  197.       Text " Set Colors "
  198.       MenuFlags NONE 
  199.       Highlight COMPLEMENT 
  200.       ShortCutKey "C"
  201.     EndScript
  202.     Occurred
  203.       LoadSubDeck "CanDo:Decks/ColorChange","CC"
  204.       OpenRequester "CC","ChangePalette"
  205.     EndScript
  206.   EndObject
  207.   TextMenu "ToMJSettings"
  208.     Definition
  209.       AttachTo MENU ,"Options"
  210.       Font "topaz",8 ; FontName, PointSize
  211.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  212.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  213.       Text " To Settings "
  214.       MenuFlags NONE 
  215.       Highlight COMPLEMENT 
  216.       ShortCutKey "T"
  217.     EndScript
  218.     Occurred
  219.       ClipPicture "MJPic"
  220.       SavePicture "MJPic","ram:CanDoMJPic"
  221.       GotoCard "MJSettings","Reset"
  222.     EndScript
  223.   EndObject
  224. * End of Card "MJPlotPic"
  225. *************
  226.  
  227. *************
  228. * Card "MJSettings"
  229.   BeforeAttachment ; used to be OnStartup
  230.     If Invocation=0
  231.       Let MaxDwell=15
  232.       Let Resolution=1
  233.       Let PlotType="M"
  234.     EndIf
  235.     Let Invocation=1
  236.   EndScript
  237.   AfterAttachment ; used to be AfterStartup
  238.     Nop ;Remove check mark from all menu subitems
  239.     SetObjectState "MD15",OFF
  240.     SetObjectState "MD31",OFF
  241.     SetObjectState "MD63",OFF
  242.     SetObjectState "MD127",OFF
  243.     SetObjectState "RES1",OFF
  244.     SetObjectState "RES2",OFF
  245.     SetObjectState "RES4",OFF
  246.     SetObjectState "RES8",OFF
  247.     SetObjectState "Mandelbrot",OFF
  248.     SetObjectState "Julia",OFF
  249.     Nop ;Put check mark on appropriate menu subitems
  250.     SetObjectState "MD"||MaxDwell,ON
  251.     SetObjectState "RES"||Resolution,ON
  252.     If PlotType="M"
  253.       SetObjectState "Mandelbrot",ON
  254.     Else
  255.       SetObjectState "Julia",ON
  256.     EndIf
  257.     Nop ;Set text entries if they changed
  258.     If Arg1="Reset"
  259.       SetText "LowReal",LR
  260.       SetText "HighReal",HR
  261.       SetText "LowImag",LI
  262.       SetText "HighImag",HI
  263.       SetText "JReal",JR
  264.       SetText "JImag",JI
  265.     EndIf
  266.     SetPrintFont "CGTimes",20
  267.     SetPrintStyle EMBOSSED ,2,11
  268.     SetPen 1,0
  269.     SetDrawMode JAM1 
  270.     PrintText "MANDELBROT OR JULIA SET BOUNDARIES",220,18
  271.     SetPrintFont "Pearl",11
  272.     SetPrintStyle BOLD EMBOSSED ,2,6
  273.     SetPen 1,0
  274.     SetDrawMode JAM1 
  275.     PrintText "      Low Real Value:",227,56
  276.     PrintText "     High Real Value:",227,86
  277.     PrintText " Low Imaginary Value:",227,116
  278.     PrintText "High Imaginary Value:",227,146
  279.     PrintText "Julia Real Value:",12,168
  280.     PrintText "Julia Imag Value:",12,183
  281.     SetPrintFont "Pearl",8
  282.     SetPrintStyle EMBOSSED ,2,3
  283.     SetPen 1,0
  284.     SetDrawMode JAM1 
  285.     PrintText "See Picture",73,149
  286.   EndScript
  287.   Routine "DrawMJPic"
  288.     Let LR=TextFrom("LowReal")
  289.     Let HR=TextFrom("HighReal")
  290.     Let LI=TextFrom("LowImag")
  291.     Let HI=TextFrom("HighImag")
  292.     Let JR=TextFrom("JReal")
  293.     Let JI=TextFrom("JImag")
  294.     GotoCard "MJPlotPic",Arg1
  295.   EndScript
  296.   Window "UserWindow"
  297.     Definition
  298.       Origin 0,0
  299.       Size 640,200
  300.       Title "CanDoMJ"
  301.       NumberOfColors 16,102400
  302.       WindowColors 0,1,0 ; Detail, Block, Background
  303.       WindowObjects CLOSEBUTTON 
  304.       WindowFlags ACTIVATE SEPARATESCREEN TOFRONT 
  305.     EndScript
  306.     OnCloseButton
  307.       Quit
  308.     EndScript
  309.   EndObject
  310.   TextButton "Go"
  311.     Definition
  312.       Origin 561,179
  313.       Font "topaz",8 ; FontName, PointSize
  314.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  315.       TextColors 1,0,NORMAL  ; PenA, PenB, DrawMode
  316.       Text "  GO  "
  317.       Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  318.       Highlight COMPLEMENT 
  319.       ButtonFlags NONE 
  320.     EndScript
  321.     OnRelease
  322.       Do "DrawMJPic","GO"
  323.     EndScript
  324.   EndObject
  325.   TextField "LowReal"
  326.     Definition
  327.       Origin 412,59
  328.       Size 200,8
  329.       Justification LEFT 
  330.       MaxFieldLength 32
  331.       InitialText "-2.9"
  332.       Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  333.     EndScript
  334.     OnRelease
  335.       SetObjectState "HighReal",ON
  336.     EndScript
  337.   EndObject
  338.   TextField "HighReal"
  339.     Definition
  340.       Origin 412,89
  341.       Size 200,8
  342.       Justification LEFT 
  343.       MaxFieldLength 32
  344.       InitialText "2.9"
  345.       Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  346.     EndScript
  347.     OnRelease
  348.       SetObjectState "LowImag",ON
  349.     EndScript
  350.   EndObject
  351.   TextField "LowImag"
  352.     Definition
  353.       Origin 412,119
  354.       Size 200,8
  355.       Justification LEFT 
  356.       MaxFieldLength 32
  357.       InitialText "-2.0"
  358.       Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  359.     EndScript
  360.     OnRelease
  361.       SetObjectState "HighImag",ON
  362.     EndScript
  363.   EndObject
  364.   TextField "HighImag"
  365.     Definition
  366.       Origin 412,149
  367.       Size 200,8
  368.       Justification LEFT 
  369.       MaxFieldLength 32
  370.       InitialText "2.0"
  371.       Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  372.     EndScript
  373.     OnRelease
  374.       SetObjectState "JReal",ON
  375.     EndScript
  376.   EndObject
  377.   TextField "JImag"
  378.     Definition
  379.       Origin 161,186
  380.       Size 200,8
  381.       Justification LEFT 
  382.       MaxFieldLength 32
  383.       InitialText "0.0"
  384.       Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  385.     EndScript
  386.     OnRelease
  387.       SetObjectState "LowReal",ON
  388.     EndScript
  389.   EndObject
  390.   TextField "JReal"
  391.     Definition
  392.       Origin 161,171
  393.       Size 200,8
  394.       Justification LEFT 
  395.       MaxFieldLength 32
  396.       InitialText "0.5"
  397.       Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  398.     EndScript
  399.     OnRelease
  400.       SetObjectState "JImag",ON
  401.     EndScript
  402.   EndObject
  403.   TextButton "GoC"
  404.     Definition
  405.       Origin 471,179
  406.       Font "topaz",8 ; FontName, PointSize
  407.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  408.       TextColors 1,0,NORMAL  ; PenA, PenB, DrawMode
  409.       Text "  GO C  "
  410.       Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  411.       Highlight COMPLEMENT 
  412.       ButtonFlags NONE 
  413.     EndScript
  414.     OnRelease
  415.       Do "DrawMJPic","GOC"
  416.     EndScript
  417.   EndObject
  418.   ImageButton "SeeMJPic"
  419.     Definition
  420.       Origin 28,19
  421.       Image "CanDo:Brushes/CanDoMJButton.br"
  422.       Highlight COMPLEMENT 
  423.       ButtonFlags NONE 
  424.     EndScript
  425.     OnRelease
  426.       Do "DrawMJPic","SEE"
  427.     EndScript
  428.   EndObject
  429.   TextMenu "MaxDwell"
  430.     Definition
  431.       AttachTo MENU ,"PlotInfo"
  432.       Font "topaz",8 ; FontName, PointSize
  433.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  434.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  435.       Text "Max Dwell"
  436.       MenuFlags NONE 
  437.       Highlight COMPLEMENT 
  438.       ShortCutKey ""
  439.     EndScript
  440.   EndObject
  441.   TextMenu "MD15"
  442.     Definition
  443.       AttachTo OBJECT ,"MaxDwell"
  444.       Font "topaz",8 ; FontName, PointSize
  445.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  446.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  447.       Text "  15 "
  448.       MenuFlags CHECKABLE CHECKIT 
  449.       Highlight COMPLEMENT 
  450.       ShortCutKey "1"
  451.     EndScript
  452.     Occurred
  453.       Let MaxDwell=15
  454.       SetObjectState "MD31",OFF
  455.       SetObjectState "MD63",OFF
  456.       SetObjectState "MD127",OFF
  457.     EndScript
  458.   EndObject
  459.   TextMenu "MD31"
  460.     Definition
  461.       AttachTo OBJECT ,"MaxDwell"
  462.       Font "topaz",8 ; FontName, PointSize
  463.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  464.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  465.       Text "  31 "
  466.       MenuFlags CHECKABLE 
  467.       Highlight COMPLEMENT 
  468.       ShortCutKey "2"
  469.     EndScript
  470.     Occurred
  471.       Let MaxDwell=31
  472.       SetObjectState "MD15",OFF
  473.       SetObjectState "MD63",OFF
  474.       SetObjectState "MD127",OFF
  475.     EndScript
  476.   EndObject
  477.   TextMenu "MD63"
  478.     Definition
  479.       AttachTo OBJECT ,"MaxDwell"
  480.       Font "topaz",8 ; FontName, PointSize
  481.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  482.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  483.       Text "  63 "
  484.       MenuFlags CHECKABLE 
  485.       Highlight COMPLEMENT 
  486.       ShortCutKey "3"
  487.     EndScript
  488.     Occurred
  489.       Let MaxDwell=63
  490.       SetObjectState "MD15",OFF
  491.       SetObjectState "MD31",OFF
  492.       SetObjectState "MD127",OFF
  493.     EndScript
  494.   EndObject
  495.   TextMenu "MD127"
  496.     Definition
  497.       AttachTo OBJECT ,"MaxDwell"
  498.       Font "topaz",8 ; FontName, PointSize
  499.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  500.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  501.       Text " 127 "
  502.       MenuFlags CHECKABLE 
  503.       Highlight COMPLEMENT 
  504.       ShortCutKey "4"
  505.     EndScript
  506.     Occurred
  507.       Let MaxDwell=127
  508.       SetObjectState "MD15",OFF
  509.       SetObjectState "MD31",OFF
  510.       SetObjectState "MD63",OFF
  511.     EndScript
  512.   EndObject
  513.   TextMenu "Resolution"
  514.     Definition
  515.       AttachTo MENU ,"PlotInfo"
  516.       Font "topaz",8 ; FontName, PointSize
  517.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  518.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  519.       Text "Resolution"
  520.       MenuFlags NONE 
  521.       Highlight COMPLEMENT 
  522.       ShortCutKey ""
  523.     EndScript
  524.   EndObject
  525.   TextMenu "RES1"
  526.     Definition
  527.       AttachTo OBJECT ,"Resolution"
  528.       Font "topaz",8 ; FontName, PointSize
  529.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  530.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  531.       Text " 1 "
  532.       MenuFlags CHECKABLE CHECKIT 
  533.       Highlight COMPLEMENT 
  534.       ShortCutKey "5"
  535.     EndScript
  536.     Occurred
  537.       Let Resolution=1
  538.       SetObjectState "RES2",OFF
  539.       SetObjectState "RES4",OFF
  540.       SetObjectState "RES8",OFF
  541.     EndScript
  542.   EndObject
  543.   TextMenu "PlotType"
  544.     Definition
  545.       AttachTo MENU ,"PlotInfo"
  546.       Font "topaz",8 ; FontName, PointSize
  547.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  548.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  549.       Text "Plot Type"
  550.       MenuFlags NONE 
  551.       Highlight COMPLEMENT 
  552.       ShortCutKey ""
  553.     EndScript
  554.   EndObject
  555.   TextMenu "Mandelbrot"
  556.     Definition
  557.       AttachTo OBJECT ,"PlotType"
  558.       Font "topaz",8 ; FontName, PointSize
  559.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  560.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  561.       Text " Mandelbrot "
  562.       MenuFlags CHECKABLE CHECKIT 
  563.       Highlight COMPLEMENT 
  564.       ShortCutKey "M"
  565.     EndScript
  566.     Occurred
  567.       Let PlotType="M"
  568.       SetObjectState "Julia",OFF
  569.     EndScript
  570.   EndObject
  571.   TextMenu "Julia"
  572.     Definition
  573.       AttachTo OBJECT ,"PlotType"
  574.       Font "topaz",8 ; FontName, PointSize
  575.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  576.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  577.       Text "      Julia "
  578.       MenuFlags CHECKABLE 
  579.       Highlight COMPLEMENT 
  580.       ShortCutKey "J"
  581.     EndScript
  582.     Occurred
  583.       Let PlotType="J"
  584.       SetObjectState "Mandelbrot",OFF
  585.     EndScript
  586.   EndObject
  587.   TextMenu "RES2"
  588.     Definition
  589.       AttachTo OBJECT ,"Resolution"
  590.       Font "topaz",8 ; FontName, PointSize
  591.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  592.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  593.       Text " 2 "
  594.       MenuFlags CHECKABLE 
  595.       Highlight COMPLEMENT 
  596.       ShortCutKey "6"
  597.     EndScript
  598.     Occurred
  599.       Let Resolution=2
  600.       SetObjectState "RES1",OFF
  601.       SetObjectState "RES4",OFF
  602.       SetObjectState "RES8",OFF
  603.     EndScript
  604.   EndObject
  605.   TextMenu "RES4"
  606.     Definition
  607.       AttachTo OBJECT ,"Resolution"
  608.       Font "topaz",8 ; FontName, PointSize
  609.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  610.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  611.       Text " 4 "
  612.       MenuFlags CHECKABLE 
  613.       Highlight COMPLEMENT 
  614.       ShortCutKey "7"
  615.     EndScript
  616.     Occurred
  617.       Let Resolution=4
  618.       SetObjectState "RES1",OFF
  619.       SetObjectState "RES2",OFF
  620.       SetObjectState "RES8",OFF
  621.     EndScript
  622.   EndObject
  623.   TextMenu "RES8"
  624.     Definition
  625.       AttachTo OBJECT ,"Resolution"
  626.       Font "topaz",8 ; FontName, PointSize
  627.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  628.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  629.       Text " 8 "
  630.       MenuFlags CHECKABLE 
  631.       Highlight COMPLEMENT 
  632.       ShortCutKey "8"
  633.     EndScript
  634.     Occurred
  635.       Let Resolution=8
  636.       SetObjectState "RES1",OFF
  637.       SetObjectState "RES2",OFF
  638.       SetObjectState "RES4",OFF
  639.     EndScript
  640.   EndObject
  641.   TextMenu "Default"
  642.     Definition
  643.       AttachTo MENU ,"PlotInfo"
  644.       Font "topaz",8 ; FontName, PointSize
  645.       PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  646.       TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  647.       Text "Default Settings"
  648.       MenuFlags NONE 
  649.       Highlight COMPLEMENT 
  650.       ShortCutKey "D"
  651.     EndScript
  652.     Occurred
  653.       GotoCard "MJSettings"
  654.     EndScript
  655.   EndObject
  656. * End of Card "MJSettings"
  657. *************
  658.